home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / xcad_2.dms / xcad_2.adf / Install-XCAD2000 < prev    next >
Text File  |  1994-02-14  |  4KB  |  140 lines
  1. ; $VER: Install XCAD 2000 V1.0 (23rd January 1994) © 1994 by Ben Vost
  2.  
  3. (set help-XCADassigns     (cat     "Select PROCEED to automatically add the"
  4.                 "XCAD 2000 assignments to the user-startup"
  5.                 " file. If you select SKIP THIS PART, you will"
  6.                 " need to add the following assigns to your"
  7.                 " User-Startup (<XCDir> is where you installed"
  8.                 " XCAD 2000):\n\n"
  9.                 "Assign XSPOVLY:            <XCDir>XSPOVLY\n"
  10.                 "Assign XSLOVLY:            <XCDir>XSLOVLY\n"
  11.                 "Assign XSMODS:             <XCDir>XSMODS\n"
  12.                 "Assign XSFONTS:            <XCDir>XSFONTS\n"
  13.                 "Assign XSDATA:             <XCDir>XSDATA\n"
  14.                 "Assign XCad20003D:         <XCDir>\n"
  15.                 "Assign XCad20003DHandlers: <XCDir>Handlers\n"
  16.                 "Assign MENUS:              <XCDir>menus\n"
  17.                 "Assign DRAWINGS:           <XCDir>drawings\n"
  18.                 "Assign SYMBOLS:            <XCDir>symbols\n"
  19.                 "Assign XCad20003DPMods:    <XCDir>PMods\n\n"
  20.             )
  21. )
  22.  
  23. ;for NTSC machines...
  24. (procedure NTSC
  25.     (message "Now copying files suitable for an NTSC system...")
  26.         (copyfiles
  27.             (prompt"")
  28.             (help "")
  29.             (source "Install_XCAD2000.1:screenmodes/")
  30.             (pattern "#?NTSC#?")
  31.             (dest XCDIR)
  32.                 )
  33.     (working)
  34.     (run ("RAM:Lha -m x Install_XCAD2000.2:XCAD2k-prog_ntsc.lha \"%s/\"" XCDir))
  35.  
  36.  
  37. )
  38. ;for PAL machines...
  39. (procedure PAL
  40.     (message "Now copying files suitable for a PAL system...")
  41.         (copyfiles
  42.             (prompt "")
  43.             (help "")
  44.             (source "Install_XCAD2000.1:screenmodes/")
  45.             (pattern "~(#?NTSC#?)")
  46.             (dest XCDIR)
  47.                 )
  48.     (working)
  49.     (run ("RAM:Lha -m x Install_XCAD2000.1:XCAD2k-prog.lha \"%s/\"" XCDir))
  50.  
  51. )
  52.  
  53. ; ask where to install X-CAD 2000
  54. (set ProgDir "XCAD2000")
  55. (set @default-dest
  56.     (askdir
  57.        (prompt "Please select the Directory where you would like to install XCAD2000, a drawer will be created.\nYou will need about 2.5Mb free.")
  58.        (help @askdir-help)
  59.        (default "Work:")
  60.        )
  61.     )
  62.  
  63. (makedir (tackon @default-dest ProgDir)(infos))
  64.  
  65. (set XCDir (tackon @default-dest ProgDir))
  66.  
  67.  
  68. (copyfiles
  69.     (prompt "")
  70.     (help "")
  71.     (source "Install_XCAD2000.1:c/lha")
  72.     (dest "RAM:")
  73. )
  74.  
  75. (set vblank (database "vblank"))
  76.     (if (= vblank "60")
  77.         (NTSC)
  78.         (PAL)
  79.     )
  80. (complete 20)
  81.  
  82. ;start installing XCAD 2000
  83.  
  84. (makedir (tackon XCDir "drawings")(infos))
  85. (makedir (tackon XCDir "symbols"))
  86.  
  87. (copyfiles
  88.     (prompt "")
  89.     (help "")
  90.     (source "Install_XCAD2000.1:s/")
  91.     (pattern "xc#?")
  92.     (dest "s:")
  93. )
  94.  
  95. (working "Installing first block of files now...")
  96. (run ("RAM:Lha -m x Install_XCAD2000.1:XCAD2k-2.lha \"%s/\""XCDir))
  97.  
  98. (complete 40)
  99.  
  100. (askdisk "Install_XCad2000.2"
  101.     (prompt "Please insert the disk named Install_XCad2000.2 in any drive...")
  102.     (help @askdisk-help)
  103.     (dest "Install_XCad2000.2")
  104. )
  105.  
  106. (working "Installing second block of files now...")
  107. (run ("RAM:Lha -m x Install_XCAD2000.2:XCAD2k-3.lha \"%s/\""XCDir))
  108.  
  109. (complete 60)
  110.  
  111. (run ("RAM:Lha -m x Install_XCAD2000.2:XCAD2k-4.lha \"%s/\""XCDir)
  112.     (prompt "Would you like to install the tutorial files?")
  113.     (help "")
  114.     (confirm)
  115. )
  116.  
  117. (complete 60)
  118.  
  119. (startup "X-CAD 2000"
  120.         (prompt "Add XCAD 2000 assigns to \"S:user-startup\"?")
  121.             (help   (cat  help-XCADassigns @startup-help))
  122.         (command (cat     "Assign XSPOVLY: \"" (tackon XCDir "XSPOVLY") "\"\n"
  123.                 "Assign XSLOVLY: \"" (tackon XCDir "XSLOVLY") "\"\n"
  124.                 "Assign XSMODS: \"" (tackon XCDir "XSMODS") "\"\n"
  125.                 "Assign XSFONTS: \"" (tackon XCDir "XSFONTS") "\"\n"
  126.                 "Assign XSDATA:     \"" (tackon XCDir "XSDATA") "\"\n"
  127.                 "Assign XCad20003D: \"" XCDir "\"\n"
  128.                 "Assign XCad20003DHandlers: \"" (tackon XCDir "Handlers") "\"\n"
  129.                 "Assign MENUS: \"" (tackon XCDir "menus") "\"\n"
  130.                 "Assign DRAWINGS: \"" (tackon XCDir "drawings") "\"\n"
  131.                 "Assign SYMBOLS: \"" (tackon XCDir "symbols") "\"\n"
  132.                 "Assign XCad20003DPMods: \"" (tackon XCDir "PMods") "\"\n"
  133.                 )
  134.             )
  135. )
  136. (if (= 1 (exists "RAM:lha"))
  137.     (delete "RAM:lha")
  138. )
  139. (Complete 100)
  140. (exit"You will need to reboot before you can use \nX-CAD 2000.\n")